unit WEBL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, Grids, Wwdbigrd, Wwdbgrid, StdCtrls, Buttons,
  wwdbdatetimepicker;

type
  TForm1 = class(TForm)
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    BitBtn1: TBitBtn;
    wwDBGrid1: TwwDBGrid;
    ADOQuery1: TADOQuery;
    ADOQuery1tarihsaat: TDateTimeField;
    ADOQuery1firmaadi: TStringField;
    ADOQuery1Ta: TIntegerField;
    ADOQuery1onar: TIntegerField;
    DataSource1: TDataSource;
    connect: TADOConnection;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ADOQuery1.close;
  ADOQuery1.Parameters.ParamByName('tar1').value:=wwDBDateTimePicker1.Date-1;
  ADOQuery1.Parameters.ParamByName('tar2').value:=wwDBDateTimePicker1.Date+1;
  ADOQuery1.Open;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
wwDBDateTimePicker1.Date:=date;
end;

end.
